Chip 2002 May/chip-cd_2002_05.zip/05/Dom i biuro/Mr Faktury Pro 1.53/mr_faktury_pro.exe/0/RCDATA/TFSPIS_MAG/TFSPIS_MAG.txt

Text File | 2002-03-27 | 5KB | 229 lines

object fSpis_mag: TfSpis_mag
  Left = 284
  Top = 160
  BorderStyle = bsSingle
  Caption = 'Inwentaryzacja towar'#243'w'
  ClientHeight = 430
  ClientWidth = 618
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 360
    Top = 392
    Width = 32
    Height = 13
    Caption = 'Szukaj'
  end
  object sbSymbol: TSpeedButton
    Left = 280
    Top = 408
    Width = 65
    Height = 20
    GroupIndex = 1
    Caption = 'wg &symbol'
    OnClick = sbSymbolClick
  end
  object sbNazwa: TSpeedButton
    Left = 280
    Top = 384
    Width = 65
    Height = 20
    GroupIndex = 1
    Down = True
    Caption = 'wg &nazwa'
    OnClick = sbNazwaClick
  end
  object bWyjdz: TButton
    Left = 552
    Top = 392
    Width = 59
    Height = 25
    Caption = '&Wyjd'#378
    TabOrder = 0
    OnClick = bWyjdzClick
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 617
    Height = 377
    DataSource = ds
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'nazwa'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'symbol'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ilosc'
        Visible = True
      end>
  end
  object bDrukuj: TButton
    Left = 8
    Top = 392
    Width = 57
    Height = 25
    Caption = '&Drukuj'
    TabOrder = 2
    OnClick = bDrukujClick
  end
  object bZmien: TButton
    Left = 200
    Top = 392
    Width = 75
    Height = 25
    Caption = '&Zmie'#324
    TabOrder = 3
    OnClick = bZmienClick
  end
  object rbCalosc: TRadioButton
    Left = 72
    Top = 392
    Width = 113
    Height = 17
    Caption = 'Ca'#322'o'#347#263' towar'#243'w'
    Checked = True
    TabOrder = 4
    TabStop = True
    OnEnter = rbCaloscEnter
  end
  object rbGrupa: TRadioButton
    Left = 72
    Top = 408
    Width = 113
    Height = 17
    Caption = 'Grupa towarowa'
    TabOrder = 5
    OnEnter = rbGrupaEnter
  end
  object eSzukaj: TEdit
    Left = 400
    Top = 384
    Width = 137
    Height = 21
    TabOrder = 6
    OnChange = eSzukajChange
  end
  object ds: TDataSource
    DataSet = tTowar
    Left = 96
    Top = 72
  end
  object tTowar: TffTable
    DatabaseName = 'mr_sklep'
    FieldDefs = <
      item
        Name = 'numer'
        DataType = ftAutoInc
      end
      item
        Name = 'nazwa'
        Attributes = [faRequired]
        DataType = ftString
        Size = 70
      end
      item
        Name = 'nazwa_f'
        Attributes = [faRequired]
        DataType = ftString
        Size = 28
      end
      item
        Name = 'symbol'
        Attributes = [faRequired]
        DataType = ftString
        Size = 14
      end
      item
        Name = 'numer_grupy'
        Attributes = [faRequired]
        DataType = ftWord
      end
      item
        Name = 'jednostka'
        Attributes = [faRequired]
        DataType = ftWord
      end
      item
        Name = 'SWW'
        Attributes = [faRequired]
        DataType = ftString
        Size = 14
      end
      item
        Name = 'stawka_VAT'
        Attributes = [faRequired]
        DataType = ftWord
      end
      item
        Name = 'ilosc'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'ilosc_minimalna'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'minimum'
        Attributes = [faRequired]
        DataType = ftWord
      end
      item
        Name = 'rodzaj'
        Attributes = [faRequired]
        DataType = ftWord
      end
      item
        Name = 'klasa'
        DataType = ftString
        Size = 4
      end>
    Filtered = True
    FilterEval = ffeLocal
    SessionName = '[automatic]'
    TableName = 'towar'
    Timeout = 10000
    OnFilterRecord = tTowarFilterRecord
    Left = 136
    Top = 72
  end
  object frReport: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    OnGetValue = frReportGetValue
    Left = 232
    Top = 80
    ReportForm = {18000000}
  end
  object frDBDataSet: TfrDBDataSet
    DataSet = tTowar
    Left = 272
    Top = 80
  end
end